Aminet 22/Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso/Aminet/biz/dbase/db.lha/Examples/ARexxDemos/Expand.db

Text File | 1994-09-03 | 241b | 10 lines

/* Rexxprogram for db that expands some shortcuts  */
Options Results
GETFIELD
select
    when result = '1' then PUTFIELD 'First'
    when result = '2' then PUTFIELD 'Second'
    when result = '3' then PUTFIELD 'Third'
    otherwise PUTFIELD result
end